home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d4 / iq.arc / SYNONYM2.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1986-11-13  |  4.7 KB  |  100 lines
  1. 10  KEY OFF:KEY(10) ON:ON KEY(10) GOSUB 570:KEY(9) ON:ON KEY(9) GOSUB 370:DIM P(35):FOR I=1 TO 35:P(I)=I:NEXT I:COLOR 3,0,8
  2. 20  CLS:T=0:N=0:GOSUB 980:FOR I=1 TO 100:SWAP P(INT(RND*35+1)),P(INT(RND*35+1)):NEXT I
  3. 30  CLS:LOCATE 1,34:COLOR 0,7:PRINT"IQ Builder ":COLOR 11,0
  4. 40  LOCATE 2,34:PRINT"Synonyms 2":COLOR 0,11
  5. 50  LOCATE 4,21:PRINT CHR$(201);
  6. 60  FOR J=1 TO 35
  7. 70    PRINT CHR$(205);
  8. 80    IF J > 35 GOTO 100
  9. 90    NEXT J
  10. 100  PRINT CHR$(187)
  11. 110  LOCATE 5,21:PRINT CHR$(186);:PRINT"Press <F9> to skip to next section.";
  12. 120  PRINT CHR$(186)
  13. 130  LOCATE 6,21:PRINT CHR$(186);:PRINT"Press <F10> to return to main menu.";
  14. 140  PRINT CHR$(186)
  15. 150  LOCATE 7,21:PRINT CHR$(200);
  16. 160  FOR J=1 TO 35
  17. 170    PRINT CHR$(205);
  18. 180    IF J > 35 GOTO 200
  19. 190    NEXT J
  20. 200  PRINT CHR$(188):COLOR 3,0
  21. 210  LOCATE 9,1:PRINT"Synonyms are words of similar meaning. ";
  22. 220  PRINT"Pick the word whose meaning is most"
  23. 230  PRINT"like the one in the box."
  24. 240  XX=1:P=P(XX)
  25. 250  IF P>1 THEN FOR J=1 TO P-1:FOR X=1 TO 7:READ A$:NEXT X,J
  26. 260  PRINT:COLOR 0,3:PRINT"Problem" P
  27. 270  READ A$:PRINT:COLOR 11,0
  28. 280  PRINT TAB(1-INT(LEN(A$)/2)) "VARPTR" STRING$(LEN(A$),"SOUND") "COLOR"
  29. 290  PRINT TAB(1-INT(LEN(A$)/2)); "CALL"; A$; "CALL"
  30. 300  PRINT TAB(1-INT(LEN(A$)/2)) "CLS" STRING$(LEN(A$),"SOUND") "'"
  31. 310  PRINT:FOR X=1 TO 5:COLOR 3,8:READ A$:PRINT"(";:COLOR 11,0:PRINT X;:COLOR 3,8:PRINT")  " A$:NEXT X:READ R
  32. 320  LOCATE 25,1:PRINT "Your choice is - ";
  33. 330  GOSUB 990:IF INSTR("12345",IKEY$)=0 THEN 330 ELSE C=VAL(IKEY$)
  34. 340  N=N+1:IF C=R THEN LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:PRINT"Correct!";:T=T+1:TIMEOUT=3:GOSUB 950:LOCATE 25,1:PRINT SPC(79);
  35. 350  IF C<>R THEN PLAY "mfn27n20t32":LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:COLOR 11,12:PRINT"No!  Try again.";:COLOR 7,0:TIMEOUT=3:GOSUB 950:LOCATE 25,1:PRINT SPC(79);:GOTO 320
  36. 360  XX=XX+1:IF XX<36 THEN P=P(XX):GOSUB 940:RESTORE:GOTO 250
  37. 370  COLOR 11,4:LOCATE 1,1:PRINT SPC(33):LOCATE 1,45:PRINT SPC(35)
  38. 380  LOCATE 2,1:PRINT SPC(33):LOCATE 2,45:PRINT SPC(35)
  39. 390  LOCATE 3,1:PRINT SPC(79)
  40. 400  LOCATE 4,1:PRINT SPC(20):LOCATE 4,58:PRINT SPC(22)
  41. 410  LOCATE 5,1:PRINT SPC(20):LOCATE 5,58:PRINT SPC(22)
  42. 420  LOCATE 6,1:PRINT SPC(20):LOCATE 6,58:PRINT SPC(22)
  43. 430  LOCATE 7,1:PRINT SPC(20):LOCATE 7,58:PRINT SPC(22)
  44. 440  LOCATE 8,1:PRINT SPC(79)
  45. 450  LOCATE 9,1:PRINT SPC(79)
  46. 460  LOCATE 10,1:PRINT SPC(79)
  47. 470  COLOR 11,4:GOSUB 940:COLOR 3,0:LOCATE 15,17
  48. 480  IF N<3 THEN COLOR 11,0:PRINT"You didn't give me much of a chance, did you?":GOTO 550
  49. 490  PRINT"You scored" T "right out of" N "or" INT(100*T/N) "percent."
  50. 500  IF T/N<0.6 THEN LOCATE 18,21:PRINT"I'll bet you do better next time.":TIMEOUT=7:GOSUB 950:RUN
  51. 510  LOCATE 18,34:IF T/N<=0.8 THEN PRINT"Good score!":GOTO 550
  52. 520  IF T/N<=0.9 THEN PRINT"Very good!":GOTO 550
  53. 530  IF T/N<=0.99 THEN PRINT"Excellent!":GOTO 550
  54. 540  COLOR 19,0:PRINT"Brilliant!"
  55. 550  COLOR 3,0:LOCATE 25,1:PRINT "Press space bar to continue.";
  56. 560  IN$=INKEY$:IF IN$="" THEN 560 ELSE 580
  57. 570  SYSTEM
  58. 580  RUN "ANALOGY1
  59. 590  DATA aberration, abnormality, secret, enormity, homily, homage, 1
  60. 600  DATA aesthete, majesty, connoisseur, mystic, excess, idyll, 2
  61. 610  DATA bigot, tolerant, racist, mammoth, important, personable, 2
  62. 620  DATA cartel, beacon, authority, monopoly, legation, complex, 3
  63. 630  DATA celibacy, luminary, idol, brain, prostitute, chastity, 5
  64. 640  DATA conjecture, signal, deportment, advantage, perfection, ponder, 5
  65. 650  DATA deprave, corrupt, devalue, regret, sink, dispossess, 1
  66. 660  DATA evince, expel, signify, invode, occur, ensue, 2
  67. 670  DATA exemplary, studious, reflective, commendable, presumptuous, cosmic, 3
  68. 680  DATA facile, glib, aspect, bluff, genuine, facade, 1
  69. 690  DATA fervid, zealous, chilly, fertile, worried, flowery, 1
  70. 700  DATA fiat, treasure, yearning, aversion, decree, nuisance, 4
  71. 710  DATA flagellate, denounce, whip, sacrifice, bewitch, cleanse, 2
  72. 720  DATA genre, vantage, pledge, sort, analogy, portal, 3
  73. 730  DATA gesticulation, vendetta, procedure, indemnity, experience, gesture, 5
  74. 740  DATA horde, garner, husky, save, ghastly, throng, 5
  75. 750  DATA illustrious, momentous, painted, menial, grotesque, celebrated, 5
  76. 760  DATA imprudent, nasty, insane, injudicious, hesitant, selective, 3
  77. 770  DATA lampoon, obscure, refinery, remorse, satire, corrode, 4
  78. 780  DATA literate, officiate, authentic, educated, cathartic, written, 3
  79. 790  DATA malady, repast, loss, medicine, affliction, incision, 4
  80. 800  DATA oration, veneer, anecdote, meeting, discourse, following, 4
  81. 810  DATA peruse, implore, correct, read, compensate, muzzle, 3
  82. 820  DATA quizzical, alert, questionable, abrupt, puzzled, flustered, 4
  83. 830  DATA recoup, consign, delineate, enlist, recover, intensify, 4
  84. 840  DATA refurbish, ordain, corroborate, renovate, substitute, resuscitate, 3
  85. 850  DATA ricochet, oscillate, covet, augment, rebound, crisscross, 4
  86. 860  DATA sagacious, strange, mercenary, wise, intimate, destructive, 3
  87. 870  DATA servile, toxic, pleasant, commonplace, hidden, slavish, 5
  88. 880  DATA submit, arrange, acquiesce, contrast, caress, conserve, 2
  89. 890  DATA tepid, diffuse, faulty, genial, illusive, lukewarm, 5
  90. 900  DATA traverse, circle, guard, cross, incriminate, transfer, 3
  91. 910  DATA unanimity, sterility, distribution, correlation, unity, animated, 4
  92. 920  DATA viscous, spirited, pitiless, sticky, reluctant, resonant, 3
  93. 930  DATA waggish, doglike, demented, roguish, venomous, twisting, 3
  94. 940  FOR Y=11 TO 24:LOCATE Y,1:PRINT SPC(79);:NEXT Y:LOCATE 11,1:RETURN
  95. 950  TIMEOUT$=TIME$:TIME2=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  96. 960  TIMEOUT$=TIME$:TIME3=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  97. 970  IF TIMEOUT > TIME3 - TIME2 THEN 960 ELSE RETURN
  98. 980  RNDTIME$=TIME$:RNDVAL=VAL(LEFT$(RNDTIME$,2))*120+VAL(MID$(RNDTIME$,4,2))*60+VAL(RIGHT$(RNDTIME$,2)):RANDOMIZE RNDVAL:RETURN
  99. 990  IKEY$=INKEY$:IF IKEY$="" THEN 990 ELSE RETURN
  100.